home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / frexxedmain.fpl < prev    next >
Text File  |  1996-06-02  |  2KB  |  58 lines
  1. export int MySearch(int flag)    /* 0=forward, 1=backward */
  2. {
  3.   int ret;
  4.   if (flag==0)
  5.     SearchSet("f+");
  6.   else if (flag==1)
  7.     SearchSet("f-");
  8.   ret=Search();
  9.   if (ret<0) {
  10.     ReturnStatus(ret);    /* Some error occured */
  11.     DisplayBeep();
  12.   }
  13. }
  14.  
  15. export int Home()   { GotoLine(ReadInfo("line")); }
  16. export int End()    { GotoLine(ReadInfo("line"), -1); }
  17. export int Top()    { GotoLine(1); }
  18. export int Bottom() { GotoLine(-1); }
  19.  
  20.  
  21. export void EnlargedSettingSave()
  22. {
  23.   switch (Request("Save local settings or default?", "Save Settings", "local|default|cancel")) {
  24.   case 0:
  25.     break; // Cancel
  26.   case 1:
  27.     SetSave("", -1); // Save local
  28.     break;
  29.   case 2:
  30.     SetSave("", 0); // Save default
  31.     break;
  32.   }
  33. }
  34.  
  35. /*************************************************************
  36.  *
  37.  * While FrexxEd has a minimum of key assigns, we'll have to 
  38.  * assign some keys that we like ourself.
  39.  *
  40.  ****/
  41.     /* Cursor movements key */
  42. AssignKey("Home();", "Shift 'Left'");
  43. AssignKey("End();", "Shift 'Right'");
  44. AssignKey("Top();", "Control 'Up'");
  45. AssignKey("Bottom();", "Control 'Down'");
  46. AssignKey("PlaceCursor();", "MouseLeft");
  47. AssignKey("PlaceCursor();", "MouseLeftDrag");
  48. AssignKey("BlockMark();", "MouseLeftDouble");
  49.  
  50. AssignKey("ResizeView(ReadInfo(\"view_lines\")-2);", "CTRL Shift 'Up'");
  51. AssignKey("ResizeView(ReadInfo(\"view_lines\")+2);", "CTRL Shift 'Down'");
  52.  
  53. AssignKey("{ int ret; SearchSet(\"f-\"); if ((ret=SearchSet())>=0) { if (Search()<0) DisplayBeep(); } else ReturnStatus(ret); }", "Amiga A");
  54.  
  55.     /* Set the height on the current view to the half */
  56. AssignKey("ResizeView(ReadInfo(\"view_lines\")/2);", "Amiga 2");
  57.  
  58.